home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / recio214.zip / RPUTS.C < prev    next >
C/C++ Source or Header  |  1996-06-14  |  4KB  |  109 lines
  1. /*****************************************************************************
  2.    MODULE: rputs.c
  3.   PURPOSE: recio character delimited string and char output functions
  4. COPYRIGHT: (C) 1994-1996, William Pierpoint
  5.  COMPILER: Borland C Version 3.1
  6.        OS: MSDOS Version 6.2
  7.   VERSION: 2.14
  8.   RELEASE: June 14, 1996
  9. *****************************************************************************/
  10.  
  11. #include <stdio.h>
  12. #include <stdlib.h>
  13. #include <string.h>
  14.  
  15. #include "recio.h"
  16.  
  17. extern int _risready(REC *rp, int mode);
  18. extern int _rputc(REC *rp, int ch);
  19.  
  20. #define rflags(rp)       ((rp)->r_flags)
  21. #define rfp(rp)          ((rp)->r_fp)
  22. #define rcol(rp)         ((rp)->r_colno)
  23. #define rfldch(rp)       ((rp)->r_fldch)
  24. #define rtxtch(rp)       ((rp)->r_txtch)
  25.  
  26. /****************************************************************************/
  27. int                          /* return 0 on success; !0 on error            */
  28.     _rputc(                  /* put character to record stream              */
  29.         REC *rp,             /* record pointer                              */
  30.         int  ch)             /* character to put to record stream           */
  31. /****************************************************************************/
  32. {
  33.     int err = fputc(ch, rfp(rp));
  34.     if (err==EOF) {
  35.         rseterr(rp, R_ENOPUT);
  36.     } else {
  37.         rcol(rp)++;
  38.         err = 0;
  39.     }
  40.     return err;
  41. }
  42.  
  43. /****************************************************************************/
  44. void                         /* returns nothing                             */
  45.     rputc(                   /* put character to record stream              */
  46.         REC *rp,             /* record pointer                              */
  47.         int  ch)             /* character to put to record stream           */
  48. /****************************************************************************/
  49. {
  50.     if (_risready(rp, R_WRITE)) {
  51.         rfldno(rp)++;
  52.         rflags(rp) &= ~_R_TXT;
  53.  
  54.         /* if not first field, put field separator if not null */
  55.         if (rfldno(rp) > 1 && rfldch(rp)) {
  56.             if (_rputc(rp, rfldch(rp))) goto done;
  57.         }
  58.  
  59.         /* put character */
  60.         _rputc(rp, ch);
  61.     }
  62. done:
  63.     return;
  64. }
  65.  
  66. /****************************************************************************/
  67. void                         /* returns nothing                             */
  68.     rputs(                   /* put string to record stream                 */
  69.         REC  *rp,            /* record pointer                              */
  70.   const char *str)           /* pointer to string                           */
  71. /****************************************************************************/
  72. /* note: assumes str does not contain a newline character */
  73. {
  74.     size_t sl;               /* string length */
  75.  
  76.     if (_risready(rp, R_WRITE)) {
  77.         rfldno(rp)++;
  78.         rflags(rp) &= ~_R_TXT;
  79.  
  80.         /* if not first field, put field separator if not null */
  81.         if (rfldno(rp) > 1 && rfldch(rp)) {
  82.             if (_rputc(rp, rfldch(rp))) goto done;
  83.         }
  84.  
  85.         /* if text delimiter not space or null, put leading text delimiter */
  86.         if (!(rtxtch(rp)==' ' || rtxtch(rp)=='\0')) {
  87.             if (_rputc(rp, rtxtch(rp))) {
  88.                 rflags(rp) |= _R_TXT;
  89.                 goto done;
  90.             }
  91.         }
  92.  
  93.         /* put string */
  94.         sl = strlen(str);
  95.         if (fputs(str, rfp(rp)) != EOF) { 
  96.             rcol(rp) += sl;
  97.         } else {
  98.             rseterr(rp, R_ENOPUT);
  99.             goto done;
  100.         }
  101.  
  102.         /* if text delimiter not space or null, put trailing text delimiter */
  103.         if (!(rtxtch(rp)==' ' || rtxtch(rp)=='\0')) {
  104.             _rputc(rp, rtxtch(rp));
  105.         }
  106.     }
  107. done:
  108. }
  109.